home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / gt_pcp03.zip / PCP-DIAL.SCR < prev    next >
Text File  |  1991-11-28  |  10KB  |  440 lines
  1. ;                 ┌──────────────────────────────────────────┐
  2. ;                 │  Dialing Directory Script for PCP calls  │
  3. ;                 │  by Dan Mancuso, Another BBS? (900/006)  │
  4. ;                 │  (c) 1991  Version 0.3α    11/28/91 DJM  │
  5. ;                 └──────────────────────────────────────────┘
  6. ;
  7. ;           ┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐
  8. ;           ├┼┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┼┤
  9. ;           ├┤                                                   ├┤
  10. ;           ├┤ THIS IS THE SCRIPT THAT SHOULD BE ENTERED AS YOUR ├┤
  11. ;           ├┤  DIALING SCRIPT IN THE PCP.DIR DIALING DIRECTORY  ├┤
  12. ;           ├┤                                                   ├┤
  13. ;           ├┼┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┼┤
  14. ;           └┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘
  15. ;
  16. ; These scripts are released under the "FREEWARE" concept, you are free to
  17. ; use it and pass it along to anyone under the agreement that all files
  18. ; will be sent intact without alterations to the original scripts. No fee
  19. ; may be charged (other than normal BBS subscriptions or minimal fee for
  20. ; disks and copying charge - not to exceed $5.00)
  21. ;
  22. ; To register these scripts for use, please NetMail me at 900/006 or send
  23. ; a postcard or letter to:
  24. ;
  25. ;                            Dan Mancuso
  26. ;                            Another BBS?
  27. ;                            5621 Acoma SE  Ste. 11A
  28. ;                            Albuquerque, NM 87108
  29. ;
  30. ;
  31. ; Absolutely no guarantees come with these scripts. They work for me and
  32. ; should work for you. I accept NO responsibitity whatsoever for anything
  33. ; that may or may not happen while using these scripts.
  34. ;
  35. ; Please read the accompanying documentation for instructions for use and
  36. ; what you NEED to change and what you CAN change..
  37. ;
  38. ; If you make any modifications to these scripts of consequence, please
  39. ; forward a copy to me. If the changes are nice I will incorporate them into
  40. ; the next release and give you credit for the change!
  41. ;
  42. ;
  43. ; -----------------------------------------------------------------------------
  44. ;
  45. ;
  46. ; Included SCRIPTS : PCP-DIAL.SCR - Script for PCP remote connects
  47. ;                    DIAL-PCP.SCR - Script to connect to PCPursuit
  48. ;
  49. ; Other Files      : PCP.KEY      - Macro Key file for these Scripts
  50. ;                    PCP-SCR.DOC  - Documentation for these Scripts
  51. ;                    PCP.DIR      - Sample PCP remote dialing directory
  52. ;                    PCPSTART.DIR - Sample PCP access dialing directory
  53. ;                    PCP-CITY.COD - Current list of PCP Cities
  54. ;                    PCPBILL      - Reply from PCP about billing
  55. ;
  56. ; -----------------------------------------------------------------------------
  57. ;
  58. ;          ┌───────────────────────────────────────────────────────┐
  59. ;          │   Description of VARIABLES used in attached SCRIPTS   │
  60. ;          └───────────────────────────────────────────────────────┘
  61. ;
  62. ;
  63. ; PCP-DIAL.SCR
  64. ; ~~~~~~~~~~~~
  65. ;
  66. ; V1 = Sets PCP baud rate
  67. ; V2 = Phone number for DESTINATION BBS
  68. ; V3 = V2 with <CR> stripped
  69. ;      NOTE: DO NOT put dashes in the phone numbers in the PCP Directory
  70. ; V4 = RESULT Code from remote modem
  71. ; V5 = used for reponse gathering of remote modem
  72. ;
  73. ;
  74. ; DIAL-PCP.SCR
  75. ; ~~~~~~~~~~~~
  76. ;
  77. ; V27= STRing result for V28
  78. ; V28= COUNTER - Number of attempts to connect to PCP local access number
  79. ; V29= DISCONNECT message (garbage) from PCPursuit HANGUP
  80. ;
  81. ;
  82. ; -----------------------------------------------------------------------------
  83. ;
  84. ;
  85. QUIET OFF
  86. SCREEN OFF
  87. CURSOR OFF
  88. CLEAR
  89. MKWIN 12 1 68 8 "PCP Call Information"
  90. WRITELN
  91. SETCOLOR 2 0
  92.   WRITE " Dialing PCP CITY...... "
  93. SETCOLOR 10 0
  94. WRITELN %CITY
  95. SETCOLOR 2 0
  96.   WRITE " Final Destination..... "
  97. SETCOLOR 14 0
  98. WRITELN %NAME
  99. SETCOLOR 2 0
  100.   WRITE " Destination Number.... "
  101. SETCOLOR 14 0
  102. WRITELN %NUM
  103. SETCOLOR 2 0
  104.   WRITE " Baud rate to connect.. "
  105. SETCOLOR 12 0
  106. WRITELN %BAUD
  107. MKWIN 8 8 72 24 "PC Pursuit Call Progress"
  108. SENDLN
  109. TWAIT 500
  110. SEND "@"
  111. TWAIT 500
  112. SENDLN
  113. WAIT 15 FOR "@"
  114. CASE %FAIL OF
  115.      TRUE
  116.          SETCOLOR 14 4
  117.          WRITELN
  118.          WRITELN " Cannot get PCP command mode "
  119.          ALARM 1
  120.          GOTO QUIT
  121. ESAC
  122. TWAIT 500
  123. SEND "D"
  124. TWAIT 500
  125. SENDLN
  126. V5 = ""
  127. GETLN V5
  128. GETLN V5
  129. CASE %5 OF
  130.    ~ DISCON
  131.          SETCOLOR 6 0
  132.          WRITELN
  133.          WRITELN " Disconnected from remote city "
  134.          BEEP
  135. ESAC
  136. WRITELN
  137. SETCOLOR 2 0
  138. WRITELN " PCPursuit Ready "
  139. V2 = %NUM
  140. TWAIT 500
  141. WRITELN
  142. SETCOLOR 3 0
  143.   WRITE " Logging into PCPursuit city: "
  144. SETCOLOR 10 0
  145.   WRITE %CITY
  146. SETCOLOR 3 0
  147. WRITELN "... Please wait!"
  148. SEND "C D/"
  149. SEND %CITY
  150. V1 COPY %BAUD 1 2
  151. ;
  152. ;           PPP999999D ...to be replaced with your PCP ID
  153. ;           ||||||||||
  154. ;           vvvvvvvvvv
  155. ;
  156. SEND "/"%1",PPP999999D"
  157. TWAIT 500
  158. SENDLN
  159. WAIT 15 FOR "PASSWORD ="
  160. CASE %FAIL OF
  161.      TRUE
  162.          SETCOLOR 14 4
  163.          WRITELN " ┌──────────────────────────────────────┐ "
  164.          WRITELN " │     PCP not accepting connection     │ "
  165.          WRITELN " │   --------------------------------   │ "
  166.          WRITELN " │ ID, CITY, or BAUD may not be correct │ "
  167.          WRITELN " │ Check PCP.DIR/PCP-DIAL.SCR-try again │ "
  168.          WRITELN " └──────────────────────────────────────┘ "
  169.          ALARM 1
  170.          GOTO QUIT
  171. ESAC
  172. ;
  173. ;     xxxxxx ...to be replaced with your PCP password
  174. ;     ||||||
  175. ;     vvvvvv
  176. ;
  177. SEND "xxxxxx"
  178. TWAIT 500
  179. SENDLN
  180. WAIT 30 FOR "CONNECTED"
  181. CASE %FAIL OF
  182.      TRUE
  183.          SETCOLOR 14 4
  184.          WRITELN " PCP Password was not accepted "
  185.          ALARM 1
  186.          GOTO QUIT
  187. ESAC
  188. SETCOLOR 2 0
  189.   WRITE " Login Completed... "
  190. SETCOLOR 3 0
  191. WRITELN "Setting Parameters. "
  192. TWAIT 500
  193. SEND "I"
  194. TWAIT 500
  195. SENDLN
  196. TWAIT 1000
  197. SEND "ATZ"
  198. TWAIT 500
  199. SENDLN
  200. WAIT 15 FOR "OK"
  201. CASE %FAIL OF
  202.      TRUE
  203.          SETCOLOR 14 4
  204.          WRITELN " Remote modem did not respond to ATZ "
  205.          ALARM 1
  206.          GOTO QUIT
  207. ESAC
  208. SENDLN
  209. SENDLN "@"
  210. WAIT 15 FOR "@"
  211. CASE %FAIL OF
  212.      TRUE
  213.          SETCOLOR 14 4
  214.          WRITELN " Cannot get PCP command line "
  215.          ALARM 1
  216.          GOTO QUIT
  217. ESAC
  218. SENDLN "SET 5:1"
  219. WAIT 15 FOR "@"
  220. CASE %FAIL OF
  221.      TRUE
  222.          SETCOLOR 14 4
  223.          WRITELN " Cannot set parameter 1 "
  224.          ALARM 1
  225.          GOTO QUIT
  226. ESAC
  227. SENDLN "RST? 5:1"
  228. WAIT 15 FOR "@"
  229. CASE %FAIL OF
  230.      TRUE
  231.          SETCOLOR 14 4
  232.          WRITELN " Cannot set parameter 2 "
  233.          ALARM 1
  234.          GOTO QUIT
  235. ESAC
  236. SENDLN "CONT"
  237. TWAIT 1000
  238. SETCOLOR 2 0
  239. WRITELN " Parameters Set..."
  240. WRITELN
  241. SETCOLOR 3 0
  242.   WRITE " Connected to PC Pursuit City: "
  243. SETCOLOR 10 0
  244. WRITELN %CITY
  245. SETCOLOR 3 0
  246.   WRITE " Now attempting to connect to: "
  247. SETCOLOR 14 0
  248. WRITELN %NAME
  249. V3 = ""
  250. V3 COPY %2 1 11
  251. SETCOLOR 3 0
  252.   WRITE " Sending Dialing command...... "
  253. SETCOLOR 11 0
  254.   WRITE %3 "{CR}"
  255. SETCOLOR 3 0
  256. WRITELN "..."
  257. SETCOLOR 3 0
  258.   WRITE " Waiting for answer........... "
  259. SEND %3
  260. TWAIT 500
  261. SENDLN
  262. WAIT 15 FOR %3
  263. CASE %FAIL OF
  264.      TRUE
  265.          SETCOLOR 14 4
  266.          WRITELN
  267.          WRITELN
  268.          WRITELN " Could not send phone number "
  269.          ALARM 1
  270.          GOTO QUIT
  271. ESAC
  272. TWAIT 500
  273. V4 = ""
  274. GETLN V4
  275. SETCOLOR 15 0
  276. WRITELN %4
  277. WRITELN
  278. TWAIT 1500
  279. QUIET OFF
  280. CASE %4 OF
  281.   ~ CONNECT
  282.       LOG "PCP Connect: " %NAME " : " %TIME
  283.       BEEP
  284.       RMWIN
  285.       CLEAR
  286.       TWAIT 1000
  287.       SET ONLINE TRUE
  288.   ~ BUSY
  289.       BEEP
  290.   ~ NO
  291.       BEEP
  292.       BEEP
  293.   ?
  294.       SETCOLOR 14 4
  295.       WRITELN
  296.         WRITE " Unexpected response recieved: "
  297.       SETCOLOR 15 0
  298.       WRITELN %4
  299.       WRITELN
  300.       BEEP
  301.       BEEP
  302.       BEEP
  303. ESAC
  304. TWAIT 1000
  305. SETCOLOR 3 0
  306.   WRITE " Disconnecting from PCP City : "
  307. SETCOLOR 10 0
  308. WRITELN %CITY
  309. SENDLN
  310. TWAIT 500
  311. SEND "@"
  312. TWAIT 500
  313. SENDLN
  314. WAIT 15 FOR "@"
  315. CASE %FAIL OF
  316.      TRUE
  317.          SETCOLOR 14 4
  318.          WRITELN " Cannot get PCP command mode "
  319.          ALARM 1
  320.          GOTO QUIT
  321. ESAC
  322. TWAIT 500
  323. SEND "D"
  324. TWAIT 500
  325. SENDLN
  326. V5 = ""
  327. GETLN V5
  328. GETLN V5
  329. CASE %5 OF
  330.    ~ DISCON
  331.          SETCOLOR 10 0
  332.            WRIT